home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).zip / Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).adf / Do_it_yourself / TextEditor / TextEditor.amosSourceCode
AMOS Source Code  |  1993-10-11  |  533b  |  31 lines
  1. Screen Open 0,640,512,2,Hires
  2. Input "Wie hei�t deine KOPIE von der In_Seenot-BlankAdventure Disk? ";DISK$
  3. Cls 
  4. Dir$=DISK$
  5. Open In 1,"FLAG"
  6. Input #1,A
  7. Close 1
  8. Dir$=DISK$+"daten/"
  9. MORE:
  10. A=A+1
  11. ST$=Str$(A)-" "
  12. NEU:
  13. Cls 
  14. Locate 0,0
  15. Print "Text Nummer: ";A
  16. Input "�nderung der Lebenskraft ( Zahlen von -12 bis 12 sind nur logisch): ";AG
  17. Print "Text:"
  18. Input "";A$
  19. If A$="QUIT" Then Goto BYE
  20. If Len(A$)>1000 Then Goto NEU
  21. Open Out 1,ST$
  22. Print #1,AG
  23. Print #1,A$
  24. Close 1
  25. Goto MORE
  26. BYE:
  27. Dir$=DISK$
  28. A=A-1
  29. Open Out 1,"Flag"
  30. Print #1,A
  31. Close 1